home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 March / CHIP Mart 1997.iso / SurfCam / SURFCAM.Z / UNCX01.F07 < prev    next >
Text File  |  1996-04-01  |  3KB  |  49 lines
  1. $$ 1/31/96 Set length to 0
  2. $$ 1/31/96 Preceed tool changes with cancel codes
  3. $$ 1/31/96 Set drilling depths to be from plunge clearance location
  4. $$ 1/31/96 Reversed sign of drilling depths
  5. $$ 1/31/96 Used an alias for Q to output the increment in the preck cycle
  6.  
  7.  REDEF/ON                             $$ ALLOW VARIABLES TO BE OVERWRITTEN
  8.  
  9. CIMFIL/ON,LOADTL                      $$ TRAP LOADTL(TOOLCHANGE)
  10.  RSLT=POSTF(20)                       $$ SAVE RECORD ASIDE
  11.  SEQNO/ON                             $$ OUTPUT SEQUENCE NUMBERS
  12.  PREFUN/90,NEXT                       $$ ADD G80 NEXT TO...
  13.  PREFUN/80,NEXT                       $$ ADD G80 NEXT TO...
  14.  PREFUN/40,NEXT                       $$ G40 NEXT TO...
  15.  PREFUN/17,NEXT                       $$ G17 NEXT TO... 
  16.  PREFUN/0,                            $$ G0  
  17.  RSLT=POSTF(21)                       $$ RELOAD RECORD
  18.  RSLT=POSTF(10,6,0)                   $$ CHANGE THE LENGTH TO 0
  19.  RSLT=POSTF(13)                       $$ SEND RECORD TO POST 
  20. CIMFIL/OFF                            $$ END ROUTINE
  21.  
  22. CIMFIL/ON,CYCLE                       $$ TRAP LOADTL(TOOLCHANGE)
  23.  CTYP=POSTF(7,4)                      $$ ASSIGN THE CYCLE TYPE TO CTYP
  24.  CASE/CTYP                            $$ TEST FOR THE CYCLE TYPE
  25.   WHEN/ICODEF(DRILL)                  $$ CAPTURE THE DRILL CYCLE
  26.    DPTH=POSTF(7,6)                    $$ ASSIGN THE DEPTH TO DPTH
  27.    PCLR=POSTF(7,10)                   $$ ASSIGN THE PLUNGE CLEARANCE TO PCLR
  28.    CCLR=POSTF(7,12)                   $$ ASSIGN THE CLEARANCE TO CCLR
  29.    DPTH=(DPTH+PCLR)                   $$ REDEFINE DPTH BY ADDING PCLR
  30.    DPTH=(DPTH*-1)                     $$ REVERSE THE SIGN
  31.    RSLT=POSTF(10,6,DPTH)              $$ OVERWRITE THE SCALAR IN THE RECORD
  32.    RSLT=POSTF(13)                     $$ SEND RECORD TO POST
  33.    POSTN/OUT,26,CCLR                  $$ INSERT A BLOCK BEFORE THE CYCLE 
  34.    POSTN/OUT,26,PCLR                  $$ INSERT A BLOCK BEFORE THE CYCLE 
  35.   WHEN/ICODEF(DEEP)                   $$ CAPTURE THE PECK DRILL CYCLE
  36.    PCLR=POSTF(7,12)                   $$ ASSIGN THE PLUNGE CLEARANCE TO PCLR
  37.    CCLR=POSTF(7,14)                   $$ ASSIGN THE CLEARANCE TO CCLR
  38.    DPTH=POSTF(7,6)                    $$ ASSIGN THE DEPTH TO DPTH
  39.    DPTH=(DPTH+PCLR)                   $$ REDEFINE DPTH BY ADDING PCLR
  40.    DPTH=(DPTH*-1)                     $$ REVERSE THE SIGN
  41.    RSLT=POSTF(10,6,DPTH)              $$ OVERWRITE THE SCALAR IN THE RECORD
  42.    RSLT=POSTF(13)                     $$ SEND RECORD TO POST
  43.    POSTN/OUT,26,CCLR                  $$ INSERT A BLOCK BEFORE THE CYCLE 
  44.    POSTN/OUT,26,PCLR                  $$ INSERT A BLOCK BEFORE THE CYCLE 
  45.   WHEN/OTHERS                         $$ IF THE CYCLE TYPE IS NOT DRILL,PECK..
  46.    RSLT=POSTF(13)                     $$ SEND RECORD TO POST
  47.  ENDCAS                               $$ END TEST
  48. CIMFIL/OFF                            $$ END ROUTINE
  49.